home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Start Menu 12.xpl < prev    next >
Text File  |  2004-02-05  |  3KB  |  93 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH 1"="Appearance\Desktop\Icons\Visible Icons"
  5. "UIPATH 2"="Appearance\Start menu\Windows XP\New Start Menu"
  6. "NAME"="Visible Desktop Icons (New Start Menu)"
  7. "VERSION"="1.00"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="0000011"
  10. "TEXT 1"="My Computer"
  11. "TEXT 2"="My Network Neighborhood"
  12. "TEXT 3"="My Documents"
  13. "TEXT 4"="Internet Explorer"
  14. "DESCRIPTION 1"="Since Windows XP there is the idea of the clutter-free desktop. Basically it means that the desktop should not include more icons than just the Trashcan so users are presented with a clean, nice desktop out of the box."
  15. "DESCRIPTION 2"="To allow this, activating the New Start menu (2-Panel display) in Windows means that it hides some of the common icons that were visible on the desktop until Windows 2000. If you activate the Old-School Start Menu, all "old" icons are visible by default. "
  16. "DESCRIPTION 3"="With these settings, you can alter this "new start menu hides desktop items" behavior of Windows. Simply activate the icons that should be visible if the New Start Menu is activated. By default, all these icons are hidden by Windows."
  17. "DESCRIPTION 4"="Please note that this setting is system-wide, means it affects all users on this computer."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com/"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Thanks to Pierre Szwarc for the idea and Kelly's Corner for the description!"
  22.  
  23.  
  24. 'Declaration of some constants
  25. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\"
  26.  
  27.  
  28. sV1=sP & "{20D04FE0-3AEA-1069-A2D8-08002B30309D}" 'My Computer icon
  29. sV2=sP & "{208D2C60-3AEA-1069-A2D7-08002B30309D}" 'My Network Neighborhood
  30. sV3=sP & "{450D8FBA-AD25-11D0-98A8-0800361B1103}" 'My Documents
  31. sV4=sP & "{871C5380-42A0-1069-A2EA-08002B30309D}" 'Internet Explorer 
  32.  
  33.  
  34. 'Called when the Plugin is started
  35. SUB Plugin_Initialize 
  36.  i=RegReadValue(sV1)
  37.  If i=0 then SetUIElement 1,true
  38.  
  39.  i=RegReadValue(sV2)
  40.  If i=0 then SetUIElement 2,true
  41.  
  42.  i=RegReadValue(sV3)
  43.  If i=0 then SetUIElement 3,true
  44.  
  45.  i=RegReadValue(sV4)
  46.  If i=0 then SetUIElement 4,true
  47. END SUB
  48.  
  49. 'Called when the Plugin should validate the Data the user has entered
  50. SUB Plugin_CheckData(ElementIndex)
  51. END SUB
  52.  
  53. 'Called when the Plugin should apply the changes
  54. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  55.  sV=sV1
  56.  b=GetUIElement(1)
  57.  if b=true then 
  58.     Call RegWriteValue(sV,0,2)
  59.  else
  60.     Call RegWriteValue(sV,1,2)
  61.  end if
  62.  
  63.  sV=sV2
  64.  b=GetUIElement(2)
  65.  if b=true then 
  66.     Call RegWriteValue(sV,0,2)
  67.  else
  68.     Call RegWriteValue(sV,1,2)
  69.  end if
  70.  
  71.  sV=sV3
  72.  b=GetUIElement(3)
  73.  if b=true then 
  74.     Call RegWriteValue(sV,0,2)
  75.  else
  76.     Call RegWriteValue(sV,1,2)
  77.  end if
  78.  
  79.  sV=sV4
  80.  b=GetUIElement(4)
  81.  if b=true then 
  82.     Call RegWriteValue(sV,0,2)
  83.  else
  84.     Call RegWriteValue(sV,1,2)
  85.  end if
  86.  
  87. END SUB
  88.  
  89.  
  90. 'Called when the Plugin is about to be removed from memory
  91. SUB Plugin_Terminate
  92. END SUB
  93.